#Algo de réception des joueurs

proc algo_reception_joueurs {} {
	global table_joueurs
	set joueur [recevoir]
	set numero_joueur [get_joueur_numero $joueur]
	
	set j 0
	set joueur_trouve 0
	foreach i [lindex $table_joueurs 0] {
		set tmp [lsearch [lindex [get_joueur_numero $i] 0] $numero_joueur]
		incr j
		if {$tmp==0} {
			set joueur_trouve 1
		}
	}
	
	if {$joueur_trouve==1} {
		maj_joueur $joueur
	} else {
		ajouter_joueur $joueur
	}
}
